10 REM  SPERRMUELL-COUPONS DRUCKEN
20 :
30 REM  (W) 4/1993 THOMAS KNEISSLER
40 :
50 FORI=50002TO50111:READA:POKEI,A:NEXT
60 DATA169,1,162,187,160,195,32,189,255,169
70 DATA8,133,186,169,96,133,185,32,213,243
80 DATA165,186,32,180,255,165,185,32,150,255
90 DATA169,0,133,144,32,215,170,160,5,132
100 DATA2,32,165,255,133,251,164,2,136,208
110 DATA244,32,165,255,164,144,208,41,166,251
120 DATA32,205,189,169,32,32,210,255,32,165
130 DATA255,166,144,208,24,170,240,6,32,210
140 DATA255,76,150,195,169,13,32,210,255,32
150 DATA225,255,240,5,160,3,76,121,195,32
160 DATA171,255,76,66,246,36,0,0,0,0
170 :
180 CLR:DIM A$(12)
190 A$(7)="01234/56789 (9 - 14 H)":REM TEL.NR.
200 A$(9)="[211]IGGI [211]ORGLOS, [198]LOPPYSTR. 64, 6502 [200]ACKERSHAUSEN":REM ADRESSE
210 A$(10)="9876543210":REM AUSWEIS-NUMMER
220 POKE 53280,15:POKE 53281,15:POKE 646,0
230 POKE 788,52
240 PRINT CHR$(147);CHR$(14);CHR$(8);
250 PRINT"        [211]PERRMUELL-[195]OUPONS DRUCKEN      [144][146]"
260 PRINT""
270 PRINT"       [200] [193] [213] [208] [212] [205] [197] [206] [213] [197]"
280 PRINT
290 PRINT"       [ 1 ]  [196]ATEN NEU EINGEBEN"
300 PRINT"       [ 2 ]  [196]ATEN LADEN"
310 PRINT"       [ 3 ]  [196]ATEN SPEICHERN"
320 PRINT"       [ 4 ]  [196]ATEN ANZEIGEN"
330 PRINT"       [ 5 ]  [196]ATEN KORRIGIEREN"
340 PRINT"       [ 6 ]  [196]ATEN DRUCKEN"
350 PRINT"       [ 7 ]  [196]IRECTORY"
360 PRINT"   [194]ITTE MIT [212]ASTEN 1 - 7 AUSWAEHLEN"
370 GET N$:IF N$="" THEN 370
380 IF N$="1" THEN 470
390 IF N$="2" THEN 1520
400 IF N$="3" THEN 1410
410 IF N$="4" THEN 1610
420 IF N$="5" THEN 1210
430 IF N$="6" THEN 710
440 IF N$="7" THEN 1730
450 GOTO 240
460 :
470 FOR N=1 TO 6:A$(N)="":NEXT
480 A$(8)=""
490 PRINT CHR$(147);
500 PRINT"         [196]ATEN NEU EINGEBEN             [146]"
510 PRINT"[210]UBRIK-[206]R.:";
520 N=1:GOSUB 1280
530 PRINT"[144][194]IETE / [211]UCHE (B/S):";
540 N=8:GOSUB 1280
550 IF A$(8)="B" THEN A$(2)="[194]IETE"
560 IF A$(8)="B" THEN PRINT:PRINT"[145][145][194]IETE[146]                 ":GOTO 600
570 IF A$(8)="S" THEN A$(2)="[211]UCHE"
580 IF A$(8)="S" THEN PRINT:PRINT"[145][145]        [211]UCHE[146]         ":GOTO 600
590 A$(8)="":GOTO 530
600 PRINT"[144][193]NZEIGENTEXT (BIS ZU 4 [218]EILEN):":PRINT
610 PRINT"1.:";
620 N=3:GOSUB 1280
630 PRINT:PRINT"2.:";
640 N=4:GOSUB 1280
650 PRINT:PRINT"3.:";
660 N=5:GOSUB 1280
670 PRINT:PRINT"4.:";
680 N=6:GOSUB 1280
690 GOTO 240
700 :
710 PRINT CHR$(147);
720 PRINT"         [196]ATEN DRUCKEN                  [146]"
730 PRINT
740 PRINT"   [ 1 ]  [195]OUPON MIT [212]ELEFON"
750 PRINT"   [ 2 ]  [195]OUPON MIT [193]DRESSE"
760 GET N$:IF N$="" THEN 790
770 IF N$="1" THEN 800
780 IF N$="2" THEN 800
790 GOTO 760
800 OPEN 1,4,2
810 PRINT#1,CHR$(27);"@";:REM RESET
820 PRINT#1,CHR$(27);"L";CHR$(5);:REM LINKER RAND
830 PRINT#1,CHR$(27);"[208]";:REM PICA EIN
840 PRINT#1,CHR$(27);"X1";:REM NLQ EIN
850 PRINT#1,CHR$(27);"K";CHR$(1);:REM NLQ SANSERIF
860 PRINT#1,CHR$(15);:REM SCHMALDRUCK EIN
870 PRINT#1,CHR$(27);"[196]";CHR$(26);CHR$(0);:REM TABULATOREN SETZEN
880 PRINT#1,"+";SPC(93);"+"
890 PRINT#1,CHR$(18);:REM SCHMALDRUCK AUS
900 PRINT#1,"   [210]UBRIK-[206]R.:          [211] P E R R [205] [189] L L"
910 PRINT#1,"                           [195] O U P O N"
920 PRINT#1,
930 PRINT#1,"    ";CHR$(27);"[215]";CHR$(1);A$(1);CHR$(27);"[215]";CHR$(0)
940 PRINT#1,CHR$(15);:REM SCHMALDRUCK EIN
950 FOR N=1 TO 4:PRINT#1,:NEXT
960 PRINT#1,CHR$(9);CHR$(27);"-";CHR$(1);"[193]NZEIGENTEXT:";CHR$(27);"-";CHR$(0)
970 PRINT#1,SPC(5);A$(2);CHR$(9);A$(3)
980 PRINT#1,CHR$(9);A$(4)
990 PRINT#1,SPC(5);"[196]IE [193]NZEIGE";CHR$(9);A$(5)
1000 PRINT#1,SPC(5);"SOLL KOSTENLOS";CHR$(9);A$(6)
1010 IF N$="2" THEN PRINT#1,SPC(5);"ERSCHEINEN";CHR$(9);A$(9):GOTO 1030
1020 PRINT#1,SPC(5);"ERSCHEINEN";CHR$(9);A$(7)
1030 FOR N=1 TO 3:PRINT#1,:NEXT
1040 PRINT#1,;CHR$(9);"[206]AME: [211]IGGI [211]ORGLOS             [211]TRA[190]E: [198]LOPPYSTR. 64"
1050 PRINT#1,;CHR$(9);"[208][204][218], [207]RT: 6502 [200]ACKERSHAUSEN    [213]NTERSCHRIFT:"
1060 IF N$="2" THEN PRINT#1,CHR$(9);"[193]USWEIS-[206]R.: ";A$(10):GOTO 1080
1070 PRINT#1,
1080 PRINT#1,
1090 PRINT#1,
1100 PRINT#1,"+";SPC(93);"+"
1110 PRINT#1,
1120 PRINT#1,CHR$(27);"X0";:REM DRAFT EIN
1130 PRINT#1,SPC(5);A$(1);"  ";A$(2)
1140 FOR N=3 TO 6
1150 PRINT#1,SPC(5);A$(N)
1160 NEXT N
1170 PRINT#1,
1180 CLOSE 1
1190 GOTO 240
1200 :
1210 PRINT CHR$(147);
1220 PRINT"       [196]ATEN KORRIGIEREN                [146]"
1230 PRINT
1240 FOR N=1 TO 7:PRINT TAB(2);CHR$(34);A$(N):NEXT
1250 PRINT"":FOR N=1 TO 7:INPUT A$(N):NEXT
1260 GOTO 240
1270 :
1280 POKE204,0:WAIT198,255:GETZ$
1290 POKE207,0:POKE204,1
1300 T=ASC(Z$):IFT=13THENPRINT" ":GOTO1390
1310 IFT=20ANDLEN(A$(N))<1THEN1280
1320 IFT=20THENA$(N)=LEFT$(A$(N),LEN(A$(N))-1):PRINTCHR$(20);:GOTO1280
1330 IFLEN(A$(N))>62THEN1280
1340 IFT=17ORT=29ORT=145ORT=157ORT=19ORT=147ORT=148THEN1280
1350 IFT=133ORT=134ORT=135ORT=136ORT=137ORT=138ORT=139ORT=140THEN1280
1360 IFT=3ORT=131THEN1280
1370 PRINTZ$;:A$(N)=A$(N)+Z$
1380 GOTO1280
1390 RETURN
1400 :
1410 PRINT"[147][196]ATEN AUF [196]ISKETTE SPEICHERN[146]"
1420 PRINT"[204]EGE EINE [196]ATENDISKETTE EIN"
1430 PRINT"UND GIB DEN [196]ATEINAMEN EIN"
1440 A$(12)="":N=12:GOSUB 1280
1450 IF A$(12)="" THEN 240
1460 OPEN 1,8,1,"@:"+A$(12)+",S,W"
1470 FOR N=1 TO 6:IF A$(N)="" THEN A$(N)=" "
1480 PRINT#1,CHR$(34);A$(N);CHR$(34):NEXT
1490 CLOSE 1
1500 GOTO 240
1510 :
1520 PRINT"[147][196]ATEN VON [196]ISKETTE LADEN[146]"
1530 PRINT"[204]EGE EINE [196]ATENDISKETTE EIN"
1540 PRINT"UND GIB DEN [196]ATEINAMEN EIN"
1550 A$(11)="":N=11:GOSUB 1280
1560 IF A$(11)="" THEN 240
1570 OPEN 1,8,0,A$(11)+",S,R"
1580 FOR N=1 TO 6:INPUT#1,A$(N):NEXT
1590 CLOSE 1
1600 :
1610 PRINT CHR$(147);
1620 PRINT"         [196]ATEN ANZEIGEN                 [146]"
1630 PRINT"[198]OLGENDER [195]OUPON-[212]EXT BEFINDET"
1640 PRINT"SICH IM [211]PEICHER:"
1650 PRINT"";TAB(3);A$(1)
1660 PRINT TAB(3);A$(2)
1670 PRINT:PRINT
1680 FOR N=3 TO 7:PRINT TAB(3);A$(N):NEXT
1690 PRINT"        [194]ITTE [212]ASTE DRUECKEN[144]"
1700 GET N$:IF N$="" THEN 1700
1710 GOTO 240
1720 :
1730 PRINT CHR$(147);
1740 SYS 50002
1750 GET N$:IF N$="" THEN 1750
1760 GOTO 240
1770 :
1780 REM VARIABLEN-LISTE
1790 REM A$ (1)= RUBRIK-NR.
1800 REM A$ (2)= BIETE / SUCHE
1810 REM A$ (3)= 1. TEXTZEILE
1820 REM A$ (4)= 2. TEXTZEILE
1830 REM A$ (5)= 3. TEXTZEILE
1840 REM A$ (6)= 4. TEXTZEILE
1850 REM A$ (7)= TEL.NR.
1860 REM A$ (8)= B/S (NUR FUER MONITOR)
1870 REM A$ (9)= ADRESSE
1880 REM A$(10)= AUSWEIS-NUMMER
1890 REM A$(11)= FILENAME LADEN
1900 REM A$(12)= FILENAME SPEICHERN